-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 3
-- first background id: 2114
-- card count: 33
-- first card id: 2374
-- list block id: 3121
-- print block id: 4084
-- font table block id: 0
-- style table block id: 0
-- free block count: 2
-- free size: 4224 bytes
-- total size: 40960 bytes
-- stack block size: 3584 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  push recent card
  hide message box
end openStack

on goWeekly myDate
  -- open to the week of a specified date
  convert myDate to seconds
  put (field "Monday" of card 6) & ", " into it
  -- first in weekly background
  put field "month" of card 6 after it  -- 14, 1987 July
  put word 3 of it & space before it    -- July 14, 1987 July
  delete word 4 of it
  convert it to seconds
  put 1 + (myDate - it) div (60*60*24*7) into whichWeek
  visual effect zoom open
  if (whichWeek+5) >= the number of cards -1
  then extend
else
  go to card (whichWeek + 5)
  if the short name of this bkgnd <> "Weekly"
  then go to last card of bkgnd "Weekly"
end if
end goWeekly


on goSixMonthly myDate
  -- call this while in the datebook
  convert myDate to dateItems
  put field "year" of first card into startYear
  put ((item 1 of myDate) - startYear) *2 into whichSix
  if item 2 of myDate > 6 then add 1 to whichSix
  if field "cal1Name" of first card = "January"
  then subtract 1 from whichSix
  visual effect zoom open
  if whichSix < 1 then go card 1
  else if whichSix > 5 then go card 5
  else
    go to card whichSix
    convert myDate to seconds
    send "bracketWeek" && myDate to this card
  end if
end goSixMonthly


on extend
  global it
  go to last card of background "weekly"
  send extendWeekly to this card
  if it <> "Cancel" then
    go to first card of background "six monthly"
    send extendHalfYearly to this card
  end if
end extend